home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / disk_utl / advapp / advapp.bas next >
Encoding:
BASIC Source File  |  1995-05-29  |  45.2 KB  |  1,327 lines
  1. '''''''''''''''''''''''''''''''''''''''''''''''''
  2. ' Copyright by Advanced Applications 1994 - 1995
  3. ' All rights reserved
  4. '
  5. '''''''''''''''''''''''''''''''''''''''''''''''''
  6.  
  7. ''''''''''''''''''''''''''''''
  8. ' Variable
  9. '
  10. Global lDriveInfo As Long
  11.  
  12. ''''''''''''''''''''''''''''''
  13. ' AdvDisk.dll Constants
  14. '
  15. Global Const NO_ERRORS = 0
  16.  
  17. Global Const REBOOT = 0
  18. Global Const RESTART = 1
  19. Global Const PROMPT = 2
  20.  
  21. Global Const FREE_SPACE = 0
  22. Global Const TOTAL_SPACE = 1
  23.  
  24. Global Const FILE_EXISTS = 0
  25. Global Const FILE_NOT_EXIST = 1
  26.  
  27. Global Const DEFAULT_DRIVE = 0
  28. Global Const DRIVE_NOT_VALID = -1
  29. Global Const DRIVE_UNDETERMINED = 0
  30. Global Const DRIVE_REMOVABLE = 2
  31. Global Const DRIVE_FIXED = 3
  32. Global Const DRIVE_REMOTE = 4
  33. Global Const DRIVE_CDROM = 5
  34. Global Const DRIVE_RAM = 6
  35.  
  36. Global Const EXISTANCE_CHECK = 0
  37. Global Const WRITE_CHECK = 2
  38. Global Const READ_CHECK = 4
  39. Global Const READ_WRITE_CHECK = 6
  40.  
  41. ''''''''''''''''''''''''''''''
  42. ' Error Value Constants
  43. '
  44. Global Const ARGUMENT_LIST_TOO_LONG = 7
  45. Global Const PERMISSION_DENIED = 13
  46. Global Const BAD_FILE_NUMBER = 9
  47. Global Const RESOURCE_DEADLOCK_WOULD_OCCUR = 36
  48. Global Const MATH_ARGUMENT = 33
  49. Global Const DRIVE_EXISTS = 17
  50. Global Const INVALID_ARGUMENT = 22
  51. Global Const TOO_MANY_OPEN_FILES = 24
  52. Global Const FILE_NOT_FOUND = 2
  53. Global Const DIRECTORY_NOT_FOUND = 3
  54. Global Const EXEC_FORMAT_ERROR = 8
  55. Global Const NOT_ENOUGH_MEMORY = 12
  56. Global Const NO_SPACE_LEFT_ON_DEVICE = 28
  57. Global Const RESULT_TOO_LARGE = 34
  58. Global Const CROSS_DEVICE_LINK = 18
  59. Global Const DISK_FULL = 39
  60. Global Const FILE_ERROR = -1
  61.  
  62. Global Const MOVE_TO_NOT_OPENED = 100
  63. Global Const MOVE_TO_NOT_CLOSED = 101
  64. Global Const MOVE_FROM_NOT_CLOSED = 102
  65. Global Const MOVE_FROM_NOT_REMOVED = 103
  66. Global Const MOVE_FROM_NOT_EXIST = 104
  67. Global Const MOVE_TO_DISK_FULL = 105
  68. Global Const MOVE_TO_DIR_CREATE_ERROR = 106
  69. Global Const MOVE_TO_DO_NOT_CREATE_DIR = 107
  70. Global Const MOVE_DO_NOT_OVER_WRITE = 108
  71. Global Const MOVE_NEWER_VERSION = 109
  72.  
  73. Global Const DRIVE_COMPONENT = 0
  74. Global Const DIRECTORY_COMPONENT = 1
  75. Global Const FILENAME_COMPONENT = 2
  76. Global Const EXTENSION_COMPONENT = 3
  77.  
  78. Global Const COMMAND_OK = -1    ' No Errors.
  79. Global Const COMMAND_ERR00 = 0  ' System was out of memory, executable file was corrupt, or relocations were invalid.
  80. Global Const COMMAND_ERR01 = 1  ' System command not available
  81. Global Const COMMAND_ERR02 = 2  ' File was not found.
  82. Global Const COMMAND_ERR03 = 3  ' Path was not found.
  83. Global Const COMMAND_ERR05 = 5  ' Attempt was made to dynamically link to a task, or there was a sharing or network-protection error.
  84. Global Const COMMAND_ERR06 = 6  ' Library required separate data segments for each task.
  85. Global Const COMMAND_ERR08 = 8  ' There was insufficient memory to start the application.
  86. Global Const COMMAND_ERR10 = 10 ' Windows version was incorrect.
  87. Global Const COMMAND_ERR11 = 11 ' Executable file was invalid. Either it was not a Windows application or there was an error in the .EXE image.
  88. Global Const COMMAND_ERR12 = 12 ' Application was designed for a different operating system.
  89. Global Const COMMAND_ERR13 = 13 ' Application was designed for MS-DOS 4.0.
  90. Global Const COMMAND_ERR14 = 14 ' Type of executable file was unknown.
  91. Global Const COMMAND_ERR15 = 15 ' Attempt was made to load a real-mode application (developed for an earlier version of Windows).
  92. Global Const COMMAND_ERR16 = 16 ' Attempt was made to load a second instance of an executable file containing multiple data segments that were not marked read-only.
  93. Global Const COMMAND_ERR19 = 19 ' Attempt was made to load a compressed executable file. The file must be decompressed before it can be loaded.
  94. Global Const COMMAND_ERR20 = 20 ' Dynamic-link library (DLL) file was invalid. One of the DLLs required to run this application was corrupt.
  95. Global Const COMMAND_ERR21 = 21 ' Application requires Microsoft Windows 32-bit extensions.
  96.  
  97. ''''''''''''''''''''''''''''''
  98. ' Help Constants
  99. '
  100. Global Const HLP_MAIN_INDEX = 10000
  101. Global Const HLP_DRIVE_CHECK = 10001
  102. Global Const HLP_DRIVE_TYPE = 10002
  103. Global Const HLP_FILE_EXISTS = 10003
  104. Global Const HLP_FREE_SPACE = 10004
  105. Global Const HLP_TOTAL_SPACE = 10005
  106. Global Const HLP_DISK_ERRORS = 10006
  107. Global Const HLP_GENERAL_ERROR = 10007
  108. Global Const HLP_MOVE_FILE = 10008
  109. Global Const HLP_ORDERING = 10009
  110. Global Const HLP_LICENCE = 10010
  111. Global Const HLP_REGISTER = 10011
  112. Global Const HLP_SAMPLE = 10012
  113. Global Const HLP_ABOUTBOX = 10013
  114. Global Const HLP_SEARCH = 10014
  115. Global Const HLP_SPLIT_WORD = 10015
  116. Global Const HLP_DIRECTORY = 10016
  117. Global Const HLP_CREATE_PATH = 10017
  118. Global Const HLP_DELETE_PATH = 10018
  119.  
  120. ''''''''''''''''''''''''''''''
  121. ' AdvDisk.dll Declarations
  122. '
  123. Declare Function DiskFreeSpace Lib "advdisk.dll" (ByVal nDrive%) As Long
  124. Declare Function DiskTotalSpace Lib "advdisk.dll" (ByVal nDrive%) As Long
  125. Declare Function DriveCheck Lib "advdisk.dll" (ByVal strDriveInfo$, ByVal nCheck%) As Integer
  126. Declare Function DriveType Lib "advdisk.dll" (ByVal nDrive%) As Integer
  127. Declare Function MoveCopyFile Lib "advdisk.dll" (ByVal strFrom$, ByVal strTo$, ByVal nCreate%, ByVal nDelete%, ByVal nOverwrite%, ByVal nRevision%) As Long
  128. Declare Function FileExists Lib "advdisk.dll" (ByVal strFile$) As Integer
  129. Declare Function AboutBox Lib "advdisk.dll" () As Integer
  130. Declare Function SearchList Lib "advdisk.dll" (ByVal strPath$, ByVal strBuffer$) As Integer
  131. Declare Function PathSplit Lib "advdisk.dll" (ByVal strPath$, ByVal strBuffer$, ByVal nValue%) As Integer
  132. Declare Function CreatePath Lib "advdisk.dll" (ByVal strPath$) As Integer
  133. Declare Function DeletePath Lib "advdisk.dll" (ByVal strPath$) As Integer
  134. Declare Function DiskFormat Lib "advdisk.dll" () As Long
  135. Declare Function DiskCopy Lib "advdisk.dll" () As Long
  136. Declare Function SystemWindow Lib "advdisk.dll" (ByVal nType%) As Long
  137.  
  138. ''''''''''''''''''''''''''''
  139. ' Visual Basic global constant file. This file can be loaded
  140. ' into a code module.
  141. '
  142. ' Some constants are commented out because they have
  143. ' duplicates (e.g., NONE appears several places).
  144. '
  145. ' If you are updating a Visual Basic application written with
  146. ' an older version, you should replace your global constants
  147. ' with the constants in this file.
  148. '
  149. ''''''''''''''''''''''''''''
  150.  
  151. ' General
  152.  
  153. ' Clipboard formats
  154. Global Const CF_LINK = &HBF00
  155. Global Const CF_TEXT = 1
  156. Global Const CF_BITMAP = 2
  157. Global Const CF_METAFILE = 3
  158. Global Const CF_DIB = 8
  159. Global Const CF_PALETTE = 9
  160.  
  161. ' DragOver
  162. Global Const ENTER = 0
  163. Global Const LEAVE = 1
  164. Global Const OVER = 2
  165.  
  166. ' Drag (controls)
  167. Global Const CANCEL = 0
  168. Global Const BEGIN_DRAG = 1
  169. Global Const END_DRAG = 2
  170.  
  171. ' Show parameters
  172. Global Const MODAL = 1
  173. Global Const MODELESS = 0
  174.  
  175. ' Arrange Method
  176. ' for MDI Forms
  177. Global Const CASCADE = 0
  178. Global Const TILE_HORIZONTAL = 1
  179. Global Const TILE_VERTICAL = 2
  180. Global Const ARRANGE_ICONS = 3
  181.  
  182. 'ZOrder Method
  183. Global Const BRINGTOFRONT = 0
  184. Global Const SENDTOBACK = 1
  185.  
  186. ' Key Codes
  187. Global Const KEY_LBUTTON = &H1
  188. Global Const KEY_RBUTTON = &H2
  189. Global Const KEY_CANCEL = &H3
  190. Global Const KEY_MBUTTON = &H4    ' NOT contiguous with L & RBUTTON
  191. Global Const KEY_BACK = &H8
  192. Global Const KEY_TAB = &H9
  193. Global Const KEY_CLEAR = &HC
  194. Global Const KEY_RETURN = &HD
  195. Global Const KEY_SHIFT = &H10
  196. Global Const KEY_CONTROL = &H11
  197. Global Const KEY_MENU = &H12
  198. Global Const KEY_PAUSE = &H13
  199. Global Const KEY_CAPITAL = &H14
  200. Global Const KEY_ESCAPE = &H1B
  201. Global Const KEY_SPACE = &H20
  202. Global Const KEY_PRIOR = &H21
  203. Global Const KEY_NEXT = &H22
  204. Global Const KEY_END = &H23
  205. Global Const KEY_HOME = &H24
  206. Global Const KEY_LEFT = &H25
  207. Global Const KEY_UP = &H26
  208. Global Const KEY_RIGHT = &H27
  209. Global Const KEY_DOWN = &H28
  210. Global Const KEY_SELECT = &H29
  211. Global Const KEY_PRINT = &H2A
  212. Global Const KEY_EXECUTE = &H2B
  213. Global Const KEY_SNAPSHOT = &H2C
  214. Global Const KEY_INSERT = &H2D
  215. Global Const KEY_DELETE = &H2E
  216. Global Const KEY_HELP = &H2F
  217.  
  218. ' KEY_A thru KEY_Z are the same as their ASCII equivalents: 'A' thru 'Z'
  219. ' KEY_0 thru KEY_9 are the same as their ASCII equivalents: '0' thru '9'
  220.  
  221. Global Const KEY_NUMPAD0 = &H60
  222. Global Const KEY_NUMPAD1 = &H61
  223. Global Const KEY_NUMPAD2 = &H62
  224. Global Const KEY_NUMPAD3 = &H63
  225. Global Const KEY_NUMPAD4 = &H64
  226. Global Const KEY_NUMPAD5 = &H65
  227. Global Const KEY_NUMPAD6 = &H66
  228. Global Const KEY_NUMPAD7 = &H67
  229. Global Const KEY_NUMPAD8 = &H68
  230. Global Const KEY_NUMPAD9 = &H69
  231. Global Const KEY_MULTIPLY = &H6A
  232. Global Const KEY_ADD = &H6B
  233. Global Const KEY_SEPARATOR = &H6C
  234. Global Const KEY_SUBTRACT = &H6D
  235. Global Const KEY_DECIMAL = &H6E
  236. Global Const KEY_DIVIDE = &H6F
  237. Global Const KEY_F1 = &H70
  238. Global Const KEY_F2 = &H71
  239. Global Const KEY_F3 = &H72
  240. Global Const KEY_F4 = &H73
  241. Global Const KEY_F5 = &H74
  242. Global Const KEY_F6 = &H75
  243. Global Const KEY_F7 = &H76
  244. Global Const KEY_F8 = &H77
  245. Global Const KEY_F9 = &H78
  246. Global Const KEY_F10 = &H79
  247. Global Const KEY_F11 = &H7A
  248. Global Const KEY_F12 = &H7B
  249. Global Const KEY_F13 = &H7C
  250. Global Const KEY_F14 = &H7D
  251. Global Const KEY_F15 = &H7E
  252. Global Const KEY_F16 = &H7F
  253.  
  254. Global Const KEY_NUMLOCK = &H90
  255.  
  256. ' Variant VarType tags
  257.  
  258. Global Const V_EMPTY = 0
  259. Global Const V_NULL = 1
  260. Global Const V_INTEGER = 2
  261. Global Const V_LONG = 3
  262. Global Const V_SINGLE = 4
  263. Global Const V_DOUBLE = 5
  264. Global Const V_CURRENCY = 6
  265. Global Const V_DATE = 7
  266. Global Const V_STRING = 8
  267.  
  268.  
  269. ' Event Parameters
  270.  
  271. ' ErrNum (LinkError)
  272. Global Const WRONG_FORMAT = 1
  273. Global Const DDE_SOURCE_CLOSED = 6
  274. Global Const TOO_MANY_LINKS = 7
  275. Global Const DATA_TRANSFER_FAILED = 8
  276.  
  277. ' QueryUnload
  278. Global Const FORM_CONTROLMENU = 0
  279. Global Const FORM_CODE = 1
  280. Global Const APP_WINDOWS = 2
  281. Global Const APP_TASKMANAGER = 3
  282. Global Const FORM_MDIFORM = 4
  283.  
  284. ' Properties
  285.  
  286. ' Colors
  287. Global Const BLACK = &H0&
  288. Global Const RED = &HFF&
  289. Global Const GREEN = &HFF00&
  290. Global Const YELLOW = &HFFFF&
  291. Global Const BLUE = &HFF0000
  292. Global Const MAGENTA = &HFF00FF
  293. Global Const CYAN = &HFFFF00
  294. Global Const WHITE = &HFFFFFF
  295.  
  296. ' System Colors
  297. Global Const SCROLL_BARS = &H80000000           ' Scroll-bars gray area.
  298. Global Const DESKTOP = &H80000001               ' Desktop.
  299. Global Const ACTIVE_TITLE_BAR = &H80000002      ' Active window caption.
  300. Global Const INACTIVE_TITLE_BAR = &H80000003    ' Inactive window caption.
  301. Global Const MENU_BAR = &H80000004              ' Menu background.
  302. Global Const WINDOW_BACKGROUND = &H80000005     ' Window background.
  303. Global Const WINDOW_FRAME = &H80000006          ' Window frame.
  304. Global Const MENU_TEXT = &H80000007             ' Text in menus.
  305. Global Const WINDOW_TEXT = &H80000008           ' Text in windows.
  306. Global Const TITLE_BAR_TEXT = &H80000009        ' Text in caption, size box, scroll-bar arrow box..
  307. Global Const ACTIVE_BORDER = &H8000000A         ' Active window border.
  308. Global Const INACTIVE_BORDER = &H8000000B       ' Inactive window border.
  309. Global Const APPLICATION_WORKSPACE = &H8000000C ' Background color of multiple document interface (MDI) applications.
  310. Global Const HIGHLIGHT = &H8000000D             ' Items selected item in a control.
  311. Global Const HIGHLIGHT_TEXT = &H8000000E        ' Text of item selected in a control.
  312. Global Const BUTTON_FACE = &H8000000F           ' Face shading on command buttons.
  313. Global Const BUTTON_SHADOW = &H80000010         ' Edge shading on command buttons.
  314. Global Const GRAY_TEXT = &H80000011             ' Grayed (disabled) text.  This color is set to 0 if the current display driver does not support a solid gray color.
  315. Global Const BUTTON_TEXT = &H80000012           ' Text on push buttons.
  316.  
  317. ' Enumerated Types
  318.  
  319. ' Align (picture box)
  320. Global Const NONE = 0
  321. Global Const ALIGN_TOP = 1
  322. Global Const ALIGN_BOTTOM = 2
  323.  
  324. ' Alignment
  325. Global Const LEFT_JUSTIFY = 0  ' 0 - Left Justify
  326. Global Const RIGHT_JUSTIFY = 1 ' 1 - Right Justify
  327. Global Const CENTER = 2        ' 2 - Center
  328.  
  329. ' BorderStyle (form)
  330. 'Global Const NONE = 0          ' 0 - None
  331. Global Const FIXED_SINGLE = 1   ' 1 - Fixed Single
  332. Global Const SIZABLE = 2        ' 2 - Sizable (Forms only)
  333. Global Const FIXED_DOUBLE = 3   ' 3 - Fixed Double (Forms only)
  334.  
  335. ' BorderStyle (Shape and Line)
  336. 'Global Const TRANSPARENT = 0    '0 - Transparent
  337. 'Global Const SOLID = 1          '1 - Solid
  338. 'Global Const DASH = 2         ' 2 - Dash
  339. 'Global Const DOT = 3          ' 3 - Dot
  340. 'Global Const DASH_DOT = 4     ' 4 - Dash-Dot
  341. 'Global Const DASH_DOT_DOT = 5 ' 5 - Dash-Dot-Dot
  342. 'Global Const INSIDE_SOLID = 6 ' 6 - Inside Solid
  343.  
  344. ' MousePointer
  345. Global Const DEFAULT = 0        ' 0 - Default
  346. Global Const ARROW = 1          ' 1 - Arrow
  347. Global Const CROSSHAIR = 2      ' 2 - Cross
  348. Global Const IBEAM = 3          ' 3 - I-Beam
  349. Global Const ICON_POINTER = 4   ' 4 - Icon
  350. Global Const SIZE_POINTER = 5   ' 5 - Size
  351. Global Const SIZE_NE_SW = 6     ' 6 - Size NE SW
  352. Global Const SIZE_N_S = 7       ' 7 - Size N S
  353. Global Const SIZE_NW_SE = 8     ' 8 - Size NW SE
  354. Global Const SIZE_W_E = 9       ' 9 - Size W E
  355. Global Const UP_ARROW = 10      ' 10 - Up Arrow
  356. Global Const HOURGLASS = 11     ' 11 - Hourglass
  357. Global Const NO_DROP = 12       ' 12 - No drop
  358.  
  359. ' DragMode
  360. Global Const MANUAL = 0    ' 0 - Manual
  361. Global Const AUTOMATIC = 1 ' 1 - Automatic
  362.  
  363. ' DrawMode
  364. Global Const BLACKNESS = 1      ' 1 - Blackness
  365. Global Const NOT_MERGE_PEN = 2  ' 2 - Not Merge Pen
  366. Global Const MASK_NOT_PEN = 3   ' 3 - Mask Not Pen
  367. Global Const NOT_COPY_PEN = 4   ' 4 - Not Copy Pen
  368. Global Const MASK_PEN_NOT = 5   ' 5 - Mask Pen Not
  369. Global Const INVERT = 6         ' 6 - Invert
  370. Global Const XOR_PEN = 7        ' 7 - Xor Pen
  371. Global Const NOT_MASK_PEN = 8   ' 8 - Not Mask Pen
  372. Global Const MASK_PEN = 9       ' 9 - Mask Pen
  373. Global Const NOT_XOR_PEN = 10   ' 10 - Not Xor Pen
  374. Global Const NOP = 11           ' 11 - Nop
  375. Global Const MERGE_NOT_PEN = 12 ' 12 - Merge Not Pen
  376. Global Const COPY_PEN = 13      ' 13 - Copy Pen
  377. Global Const MERGE_PEN_NOT = 14 ' 14 - Merge Pen Not
  378. Global Const MERGE_PEN = 15     ' 15 - Merge Pen
  379. Global Const WHITENESS = 16     ' 16 - Whiteness
  380.  
  381. ' DrawStyle
  382. Global Const SOLID = 0        ' 0 - Solid
  383. Global Const DASH = 1         ' 1 - Dash
  384. Global Const DOT = 2          ' 2 - Dot
  385. Global Const DASH_DOT = 3     ' 3 - Dash-Dot
  386. Global Const DASH_DOT_DOT = 4 ' 4 - Dash-Dot-Dot
  387. Global Const INVISIBLE = 5    ' 5 - Invisible
  388. Global Const INSIDE_SOLID = 6 ' 6 - Inside Solid
  389.  
  390. ' FillStyle
  391. ' Global Const SOLID = 0           ' 0 - Solid
  392. Global Const TRANSPARENT = 1       ' 1 - Transparent
  393. Global Const HORIZONTAL_LINE = 2   ' 2 - Horizontal Line
  394. Global Const VERTICAL_LINE = 3     ' 3 - Vertical Line
  395. Global Const UPWARD_DIAGONAL = 4   ' 4 - Upward Diagonal
  396. Global Const DOWNWARD_DIAGONAL = 5 ' 5 - Downward Diagonal
  397. Global Const CROSS = 6             ' 6 - Cross
  398. Global Const DIAGONAL_CROSS = 7    ' 7 - Diagonal Cross
  399.  
  400. ' LinkMode (forms and controls)
  401. ' Global Const NONE = 0         ' 0 - None
  402. Global Const LINK_SOURCE = 1    ' 1 - Source (forms only)
  403. Global Const LINK_AUTOMATIC = 1 ' 1 - Automatic (controls only)
  404. Global Const LINK_MANUAL = 2    ' 2 - Manual (controls only)
  405. Global Const LINK_NOTIFY = 3    ' 3 - Notify (controls only)
  406.  
  407. ' LinkMode (kept for VB1.0 compatibility, use new constants instead)
  408. Global Const HOT = 1    ' 1 - Hot (controls only)
  409. Global Const SERVER = 1 ' 1 - Server (forms only)
  410. Global Const COLD = 2   ' 2 - Cold (controls only)
  411.  
  412.  
  413. ' ScaleMode
  414. Global Const USER = 0        ' 0 - User
  415. Global Const TWIPS = 1       ' 1 - Twip
  416. Global Const POINTS = 2      ' 2 - Point
  417. Global Const PIXELS = 3      ' 3 - Pixel
  418. Global Const CHARACTERS = 4  ' 4 - Character
  419. Global Const INCHES = 5      ' 5 - Inch
  420. Global Const MILLIMETERS = 6 ' 6 - Millimeter
  421. Global Const CENTIMETERS = 7 ' 7 - Centimeter
  422.  
  423. ' ScrollBar
  424. ' Global Const NONE     = 0 ' 0 - None
  425. Global Const HORIZONTAL = 1 ' 1 - Horizontal
  426. Global Const VERTICAL = 2   ' 2 - Vertical
  427. Global Const BOTH = 3       ' 3 - Both
  428.  
  429. ' Shape
  430. Global Const SHAPE_RECTANGLE = 0
  431. Global Const SHAPE_SQUARE = 1
  432. Global Const SHAPE_OVAL = 2
  433. Global Const SHAPE_CIRCLE = 3
  434. Global Const SHAPE_ROUNDED_RECTANGLE = 4
  435. Global Const SHAPE_ROUNDED_SQUARE = 5
  436.  
  437. ' WindowState
  438. Global Const Normal = 0    ' 0 - Normal
  439. Global Const MINIMIZED = 1 ' 1 - Minimized
  440. Global Const MAXIMIZED = 2 ' 2 - Maximized
  441.  
  442. ' Check Value
  443. Global Const UNCHECKED = 0 ' 0 - Unchecked
  444. Global Const CHECKED = 1   ' 1 - Checked
  445. Global Const GRAYED = 2    ' 2 - Grayed
  446.  
  447. ' Shift parameter masks
  448. Global Const SHIFT_MASK = 1
  449. Global Const CTRL_MASK = 2
  450. Global Const ALT_MASK = 4
  451.  
  452. ' Button parameter masks
  453. Global Const LEFT_BUTTON = 1
  454. Global Const RIGHT_BUTTON = 2
  455. Global Const MIDDLE_BUTTON = 4
  456.  
  457. ' Function Parameters
  458. ' MsgBox parameters
  459. Global Const MB_OK = 0                 ' OK button only
  460. Global Const MB_OKCANCEL = 1           ' OK and Cancel buttons
  461. Global Const MB_ABORTRETRYIGNORE = 2   ' Abort, Retry, and Ignore buttons
  462. Global Const MB_YESNOCANCEL = 3        ' Yes, No, and Cancel buttons
  463. Global Const MB_YESNO = 4              ' Yes and No buttons
  464. Global Const MB_RETRYCANCEL = 5        ' Retry and Cancel buttons
  465.  
  466. Global Const MB_ICONSTOP = 16          ' Critical message
  467. Global Const MB_ICONQUESTION = 32      ' Warning query
  468. Global Const MB_ICONEXCLAMATION = 48   ' Warning message
  469. Global Const MB_ICONINFORMATION = 64   ' Information message
  470.  
  471. Global Const MB_APPLMODAL = 0          ' Application Modal Message Box
  472. Global Const MB_DEFBUTTON1 = 0         ' First button is default
  473. Global Const MB_DEFBUTTON2 = 256       ' Second button is default
  474. Global Const MB_DEFBUTTON3 = 512       ' Third button is default
  475. Global Const MB_SYSTEMMODAL = 4096      'System Modal
  476.  
  477. ' MsgBox return values
  478. Global Const IDOK = 1                  ' OK button pressed
  479. Global Const IDCANCEL = 2              ' Cancel button pressed
  480. Global Const IDABORT = 3               ' Abort button pressed
  481. Global Const IDRETRY = 4               ' Retry button pressed
  482. Global Const IDIGNORE = 5              ' Ignore button pressed
  483. Global Const IDYES = 6                 ' Yes button pressed
  484. Global Const IDNO = 7                  ' No button pressed
  485.  
  486. ' SetAttr, Dir, GetAttr functions
  487. Global Const ATTR_NORMAL = 0
  488. Global Const ATTR_READONLY = 1
  489. Global Const ATTR_HIDDEN = 2
  490. Global Const ATTR_SYSTEM = 4
  491. Global Const ATTR_VOLUME = 8
  492. Global Const ATTR_DIRECTORY = 16
  493. Global Const ATTR_ARCHIVE = 32
  494.  
  495. 'Grid
  496. 'ColAlignment,FixedAlignment Properties
  497. Global Const GRID_ALIGNLEFT = 0
  498. Global Const GRID_ALIGNRIGHT = 1
  499. Global Const GRID_ALIGNCENTER = 2
  500.  
  501. 'Fillstyle Property
  502. Global Const GRID_SINGLE = 0
  503. Global Const GRID_REPEAT = 1
  504.  
  505.  
  506. 'Data control
  507. 'Error event Response arguments
  508. Global Const DATA_ERRCONTINUE = 0
  509. Global Const DATA_ERRDISPLAY = 1
  510.  
  511. 'Editmode property values
  512. Global Const DATA_EDITNONE = 0
  513. Global Const DATA_EDITMODE = 1
  514. Global Const DATA_EDITADD = 2
  515.  
  516. ' Options property values
  517. Global Const DATA_DENYWRITE = &H1
  518. Global Const DATA_DENYREAD = &H2
  519. Global Const DATA_READONLY = &H4
  520. Global Const DATA_APPENDONLY = &H8
  521. Global Const DATA_INCONSISTENT = &H10
  522. Global Const DATA_CONSISTENT = &H20
  523. Global Const DATA_SQLPASSTHROUGH = &H40
  524.  
  525. 'Validate event Action arguments
  526. Global Const DATA_ACTIONCANCEL = 0
  527. Global Const DATA_ACTIONMOVEFIRST = 1
  528. Global Const DATA_ACTIONMOVEPREVIOUS = 2
  529. Global Const DATA_ACTIONMOVENEXT = 3
  530. Global Const DATA_ACTIONMOVELAST = 4
  531. Global Const DATA_ACTIONADDNEW = 5
  532. Global Const DATA_ACTIONUPDATE = 6
  533. Global Const DATA_ACTIONDELETE = 7
  534. Global Const DATA_ACTIONFIND = 8
  535. Global Const DATA_ACTIONBOOKMARK = 9
  536. Global Const DATA_ACTIONCLOSE = 10
  537. Global Const DATA_ACTIONUNLOAD = 11
  538.  
  539.  
  540. 'OLE Client Control
  541. 'Actions
  542. Global Const OLE_CREATE_EMBED = 0
  543. Global Const OLE_CREATE_NEW = 0           'from ole1 control
  544. Global Const OLE_CREATE_LINK = 1
  545. Global Const OLE_CREATE_FROM_FILE = 1     'from ole1 control
  546. Global Const OLE_COPY = 4
  547. Global Const OLE_PASTE = 5
  548. Global Const OLE_UPDATE = 6
  549. Global Const OLE_ACTIVATE = 7
  550. Global Const OLE_CLOSE = 9
  551. Global Const OLE_DELETE = 10
  552. Global Const OLE_SAVE_TO_FILE = 11
  553. Global Const OLE_READ_FROM_FILE = 12
  554. Global Const OLE_INSERT_OBJ_DLG = 14
  555. Global Const OLE_PASTE_SPECIAL_DLG = 15
  556. Global Const OLE_FETCH_VERBS = 17
  557. Global Const OLE_SAVE_TO_OLE1FILE = 18
  558.  
  559. 'OLEType
  560. Global Const OLE_LINKED = 0
  561. Global Const OLE_EMBEDDED = 1
  562. Global Const OLE_NONE = 3
  563.  
  564. 'OLETypeAllowed
  565. Global Const OLE_EITHER = 2
  566.  
  567. 'UpdateOptions
  568. Global Const OLE_AUTOMATIC = 0
  569. Global Const OLE_FROZEN = 1
  570. Global Const OLE_MANUAL = 2
  571.  
  572. 'AutoActivate modes
  573. 'Note that OLE_ACTIVATE_GETFOCUS only applies to objects that
  574. 'support "inside-out" activation.  See related Verb notes below.
  575. Global Const OLE_ACTIVATE_MANUAL = 0
  576. Global Const OLE_ACTIVATE_GETFOCUS = 1
  577. Global Const OLE_ACTIVATE_DOUBLECLICK = 2
  578.  
  579. 'SizeModes
  580. Global Const OLE_SIZE_CLIP = 0
  581. Global Const OLE_SIZE_STRETCH = 1
  582. Global Const OLE_SIZE_AUTOSIZE = 2
  583.  
  584. 'DisplayTypes
  585. Global Const OLE_DISPLAY_CONTENT = 0
  586. Global Const OLE_DISPLAY_ICON = 1
  587.  
  588. 'Update Event Constants
  589. Global Const OLE_CHANGED = 0
  590. Global Const OLE_SAVED = 1
  591. Global Const OLE_CLOSED = 2
  592. Global Const OLE_RENAMED = 3
  593.  
  594. 'Special Verb Values
  595. Global Const VERB_PRIMARY = 0
  596. Global Const VERB_SHOW = -1
  597. Global Const VERB_OPEN = -2
  598. Global Const VERB_HIDE = -3
  599. Global Const VERB_INPLACEUIACTIVATE = -4
  600. Global Const VERB_INPLACEACTIVATE = -5
  601. 'The last two verbs are for objects that support "inside-out" activation,
  602. 'meaning they can be edited in-place, and that they support being left
  603. 'in-place-active even when the input focus moves to another control or form.
  604. 'These objects actually have 2 levels of being active.  "InPlace Active"
  605. 'means that the object is ready for the user to click inside it and start
  606. 'working with it.  "In-Place UI-Active" means that, in addition, if the object
  607. 'has any other UI associated with it, such as floating palette windows,
  608. 'that those windows are visible and ready for use.  Any number of objects
  609. 'can be "In-Place Active" at a time, although only one can be
  610. '"InPlace UI-Active".
  611.  
  612. 'You can cause an object to move to either one of states programmatically by
  613. 'setting the Verb property to the appropriate verb and setting
  614. 'Action=OLE_ACTIVATE.
  615.  
  616. 'Also, if you set AutoActivate = OLE_ACTIVATE_GETFOCUS, the server will
  617. 'automatically be put into "InPlace UI-Active" state when the user clicks
  618. 'on or tabs into the control.
  619.  
  620. 'VerbFlag Bit Masks
  621. Global Const VERBFLAG_GRAYED = &H1
  622. Global Const VERBFLAG_DISABLED = &H2
  623. Global Const VERBFLAG_CHECKED = &H8
  624. Global Const VERBFLAG_SEPARATOR = &H800
  625.  
  626. 'MiscFlag Bits - Or these together as desired for special behaviors
  627.  
  628. 'MEMSTORAGE causes the control to use memory to store the object while
  629. '           it is loaded.  This is faster than the default (disk-tempfile),
  630. '           but can consume a lot of memory for objects whose data takes
  631. '           up a lot of space, such as the bitmap for a paint program.
  632. Global Const OLE_MISCFLAG_MEMSTORAGE = &H1
  633.  
  634. 'DISABLEINPLACE overrides the control's default behavior of allowing
  635. '           in-place activation for objects that support it.  If you
  636. '           are having problems activating an object inplace, you can
  637. '           force it to always activate in a separate window by setting this
  638. '           bit
  639. Global Const OLE_MISCFLAG_DISABLEINPLACE = &H2
  640.  
  641. 'Common Dialog Control
  642. 'Action Property
  643. Global Const DLG_FILE_OPEN = 1
  644. Global Const DLG_FILE_SAVE = 2
  645. Global Const DLG_COLOR = 3
  646. Global Const DLG_FONT = 4
  647. Global Const DLG_PRINT = 5
  648. Global Const DLG_HELP = 6
  649.  
  650. 'File Open/Save Dialog Flags
  651. Global Const OFN_READONLY = &H1&
  652. Global Const OFN_OVERWRITEPROMPT = &H2&
  653. Global Const OFN_HIDEREADONLY = &H4&
  654. Global Const OFN_NOCHANGEDIR = &H8&
  655. Global Const OFN_SHOWHELP = &H10&
  656. Global Const OFN_NOVALIDATE = &H100&
  657. Global Const OFN_ALLOWMULTISELECT = &H200&
  658. Global Const OFN_EXTENSIONDIFFERENT = &H400&
  659. Global Const OFN_PATHMUSTEXIST = &H800&
  660. Global Const OFN_FILEMUSTEXIST = &H1000&
  661. Global Const OFN_CREATEPROMPT = &H2000&
  662. Global Const OFN_SHAREAWARE = &H4000&
  663. Global Const OFN_NOREADONLYRETURN = &H8000&
  664.  
  665. 'Color Dialog Flags
  666. Global Const CC_RGBINIT = &H1&
  667. Global Const CC_FULLOPEN = &H2&
  668. Global Const CC_PREVENTFULLOPEN = &H4&
  669. Global Const CC_SHOWHELP = &H8&
  670.  
  671. 'Fonts Dialog Flags
  672. Global Const CF_SCREENFONTS = &H1&
  673. Global Const CF_PRINTERFONTS = &H2&
  674. Global Const CF_BOTH = &H3&
  675. Global Const CF_SHOWHELP = &H4&
  676. Global Const CF_INITTOLOGFONTSTRUCT = &H40&
  677. Global Const CF_USESTYLE = &H80&
  678. Global Const CF_EFFECTS = &H100&
  679. Global Const CF_APPLY = &H200&
  680. Global Const CF_ANSIONLY = &H400&
  681. Global Const CF_NOVECTORFONTS = &H800&
  682. Global Const CF_NOSIMULATIONS = &H1000&
  683. Global Const CF_LIMITSIZE = &H2000&
  684. Global Const CF_FIXEDPITCHONLY = &H4000&
  685. Global Const CF_WYSIWYG = &H8000&         'must also have CF_SCREENFONTS & CF_PRINTERFONTS
  686. Global Const CF_FORCEFONTEXIST = &H10000
  687. Global Const CF_SCALABLEONLY = &H20000
  688. Global Const CF_TTONLY = &H40000
  689. Global Const CF_NOFACESEL = &H80000
  690. Global Const CF_NOSTYLESEL = &H100000
  691. Global Const CF_NOSIZESEL = &H200000
  692.  
  693. 'Printer Dialog Flags
  694. Global Const PD_ALLPAGES = &H0&
  695. Global Const PD_SELECTION = &H1&
  696. Global Const PD_PAGENUMS = &H2&
  697. Global Const PD_NOSELECTION = &H4&
  698. Global Const PD_NOPAGENUMS = &H8&
  699. Global Const PD_COLLATE = &H10&
  700. Global Const PD_PRINTTOFILE = &H20&
  701. Global Const PD_PRINTSETUP = &H40&
  702. Global Const PD_NOWARNING = &H80&
  703. Global Const PD_RETURNDC = &H100&
  704. Global Const PD_RETURNIC = &H200&
  705. Global Const PD_RETURNDEFAULT = &H400&
  706. Global Const PD_SHOWHELP = &H800&
  707. Global Const PD_USEDEVMODECOPIES = &H40000
  708. Global Const PD_DISABLEPRINTTOFILE = &H80000
  709. Global Const PD_HIDEPRINTTOFILE = &H100000
  710.  
  711. 'Help Constants
  712. Global Const HELP_CONTEXT = &H1           'Display topic in ulTopic
  713. Global Const HELP_QUIT = &H2              'Terminate help
  714. Global Const HELP_INDEX = &H3             'Display index
  715. Global Const HELP_CONTENTS = &H3
  716. Global Const HELP_HELPONHELP = &H4        'Display help on using help
  717. Global Const HELP_SETINDEX = &H5          'Set the current Index for multi index help
  718. Global Const HELP_SETCONTENTS = &H5
  719. Global Const HELP_CONTEXTPOPUP = &H8
  720. Global Const HELP_FORCEFILE = &H9
  721. Global Const HELP_KEY = &H101             'Display topic for keyword in offabData
  722. Global Const HELP_COMMAND = &H102
  723. Global Const HELP_PARTIALKEY = &H105      'call the search engine in winhelp
  724.  
  725. 'Error Constants
  726. Global Const CDERR_DIALOGFAILURE = -32768
  727.  
  728. Global Const CDERR_GENERALCODES = &H7FFF
  729. Global Const CDERR_STRUCTSIZE = &H7FFE
  730. Global Const CDERR_INITIALIZATION = &H7FFD
  731. Global Const CDERR_NOTEMPLATE = &H7FFC
  732. Global Const CDERR_NOHINSTANCE = &H7FFB
  733. Global Const CDERR_LOADSTRFAILURE = &H7FFA
  734. Global Const CDERR_FINDRESFAILURE = &H7FF9
  735. Global Const CDERR_LOADRESFAILURE = &H7FF8
  736. Global Const CDERR_LOCKRESFAILURE = &H7FF7
  737. Global Const CDERR_MEMALLOCFAILURE = &H7FF6
  738. Global Const CDERR_MEMLOCKFAILURE = &H7FF5
  739. Global Const CDERR_NOHOOK = &H7FF4
  740.  
  741. 'Added for CMDIALOG.VBX
  742. Global Const CDERR_CANCEL = &H7FF3
  743. Global Const CDERR_NODLL = &H7FF2
  744. Global Const CDERR_ERRPROC = &H7FF1
  745. Global Const CDERR_ALLOC = &H7FF0
  746. Global Const CDERR_HELP = &H7FEF
  747.  
  748. Global Const PDERR_PRINTERCODES = &H6FFF
  749. Global Const PDERR_SETUPFAILURE = &H6FFE
  750. Global Const PDERR_PARSEFAILURE = &H6FFD
  751. Global Const PDERR_RETDEFFAILURE = &H6FFC
  752. Global Const PDERR_LOADDRVFAILURE = &H6FFB
  753. Global Const PDERR_GETDEVMODEFAIL = &H6FFA
  754. Global Const PDERR_INITFAILURE = &H6FF9
  755. Global Const PDERR_NODEVICES = &H6FF8
  756. Global Const PDERR_NODEFAULTPRN = &H6FF7
  757. Global Const PDERR_DNDMMISMATCH = &H6FF6
  758. Global Const PDERR_CREATEICFAILURE = &H6FF5
  759. Global Const PDERR_PRINTERNOTFOUND = &H6FF4
  760.  
  761. Global Const CFERR_CHOOSEFONTCODES = &H5FFF
  762. Global Const CFERR_NOFONTS = &H5FFE
  763.  
  764. Global Const FNERR_FILENAMECODES = &H4FFF
  765. Global Const FNERR_SUBCLASSFAILURE = &H4FFE
  766. Global Const FNERR_INVALIDFILENAME = &H4FFD
  767. Global Const FNERR_BUFFERTOOSMALL = &H4FFC
  768.  
  769. Global Const FRERR_FINDREPLACECODES = &H3FFF
  770. Global Const CCERR_CHOOSECOLORCODES = &H2FFF
  771.  
  772.  
  773. '---------------------------------------------------------
  774. '      Table of Contents for Visual Basic Professional
  775. '
  776. '       1.  3-D Controls
  777. '           (Frame/Panel/Option/Check/Command/Group Push)
  778. '       2.  Animated Button
  779. '       3.  Gauge Control
  780. '       4.  Graph Control Section
  781. '       5.  Key Status Control
  782. '       6.  Spin Button
  783. '       7.  MCI Control (Multimedia)
  784. '       8.  Masked Edit Control
  785. '       9.  Comm Control
  786. '       10. Outline Control
  787. '---------------------------------------------------------
  788.  
  789.  
  790. '-------------------------------------------------------------------
  791. '3D Controls
  792. '-------------------------------------------------------------------
  793. 'Alignment (Check Box)
  794. Global Const SSCB_TEXT_RIGHT = 0         '0 - Text to the right
  795. Global Const SSCB_TEXT_LEFT = 1          '1 - Text to the left
  796.  
  797. 'Alignment (Option Button)
  798. Global Const SSOB_TEXT_RIGHT = 0         '0 - Text to the right
  799. Global Const SSOB_TEXT_LEFT = 1          '1 - Text to the left
  800.  
  801. 'Alignment (Frame)
  802. Global Const SSFR_LEFT_JUSTIFY = 0       '0 - Left justify text
  803. Global Const SSFR_RIGHT_JUSTIFY = 1      '1 - Right justify text
  804. Global Const SSFR_CENTER = 2             '2 - Center text
  805.  
  806. 'Alignment (Panel)
  807. Global Const SSPN_LEFT_TOP = 0           '0 - Text to left and top
  808. Global Const SSPN_LEFT_MIDDLE = 1        '1 - Text to left and middle
  809. Global Const SSPN_LEFT_BOTTOM = 2        '2 - Text to left and bottom
  810. Global Const SSPN_RIGHT_TOP = 3          '3 - Text to right and top
  811. Global Const SSPN_RIGHT_MIDDLE = 4       '4 - Text to right and middle
  812. Global Const SSPN_RIGHT_BOTTOM = 5       '5 - Text to right and bottom
  813. Global Const SSPN_CENTER_TOP = 6         '6 - Text to center and top
  814. Global Const SSPN_CENTER_MIDDLE = 7      '7 - Text to center and middle
  815. Global Const SSPN_CENTER_BOTTOM = 8      '8 - Text to center and bottom
  816.  
  817. 'Autosize (Command Button)
  818. Global Const SS_AUTOSIZE_NONE = 0        '0 - No Autosizing
  819. Global Const SSPB_AUTOSIZE_PICTOBUT = 1  '0 - Autosize Picture to Button
  820. Global Const SSPB_AUTOSIZE_BUTTOPIC = 2  '0 - Autosize Button to Picture
  821.  
  822. 'Autosize (Ribbon Button)
  823. 'Global Const SS_AUTOSIZE_NONE      = 0  '0 - No Autosizing
  824. Global Const SSRI_AUTOSIZE_PICTOBUT = 1  '0 - Autosize Picture to Button
  825. Global Const SSRI_AUTOSIZE_BUTTOPIC = 2  '0 - Autosize Button to Picture
  826.  
  827. 'Autosize (Panel)
  828. 'Global Const SS_AUTOSIZE_NONE    = 0    '0 - No Autosizing
  829. Global Const SSPN_AUTOSIZE_WIDTH = 1     '1 - Autosize Panel width to Caption
  830. Global Const SSPN_AUTOSIZE_HEIGHT = 2    '2 - Autosize Panel height to Caption
  831. Global Const SSPN_AUTOSIZE_CHILD = 3     '3 - Autosize Child to Panel
  832.  
  833. 'BevelInner (Panel)
  834. Global Const SS_BEVELINNER_NONE = 0      '0 - No Inner Bevel
  835. Global Const SS_BEVELINNER_INSET = 1     '1 - Inset Inner Bevel
  836. Global Const SS_BEVELINNER_RAISED = 2    '2 - Raised Inner Bevel
  837.  
  838. 'BevelOuter (Panel)
  839. Global Const SS_BEVELOUTER_NONE = 0      '0 - No Outer Bevel
  840. Global Const SS_BEVELOUTER_INSET = 1     '1 - Inset Outer Bevel
  841. Global Const SS_BEVELOUTER_RAISED = 2    '2 - Raised Outer Bevel
  842.  
  843. 'FloodType (Panel)
  844. Global Const SS_FLOODTYPE_NONE = 0       '0 - No flood
  845. Global Const SS_FLOODTYPE_L_TO_R = 1     '1 - Left to light
  846. Global Const SS_FLOODTYPE_R_TO_L = 2     '2 - Right to left
  847. Global Const SS_FLOODTYPE_T_TO_B = 3     '3 - Top to bottom
  848. Global Const SS_FLOODTYPE_B_TO_T = 4     '4 - Bottom to top
  849. Global Const SS_FLOODTYPE_CIRCLE = 5     '5 - Widening circle
  850.  
  851. 'Font3D (Panel, Command Button, Option Button, Check Box, Frame)
  852. Global Const SS_FONT3D_NONE = 0          '0 - No 3-D text
  853. Global Const SS_FONT3D_RAISED_LIGHT = 1  '1 - Raised with light shading
  854. Global Const SS_FONT3D_RAISED_HEAVY = 2  '2 - Raised with heavy shading
  855. Global Const SS_FONT3D_INSET_LIGHT = 3   '3 - Inset with light shading
  856. Global Const SS_FONT3D_INSET_HEAVY = 4   '4 - Inset with heavy shading
  857.  
  858. 'PictureDnChange (Ribbon Button)
  859. Global Const SS_PICDN_NOCHANGE = 0       '0 - Use 'Up'bitmap with no change
  860. Global Const SS_PICDN_DITHER = 1         '1 - Dither 'Up'bitmap
  861. Global Const SS_PICDN_INVERT = 2         '2 - Invert 'Up'bitmap
  862.  
  863. 'ShadowColor (Panel, Frame)
  864. Global Const SS_SHADOW_DARKGREY = 0      '0 - Dark grey shadow
  865. Global Const SS_SHADOW_BLACK = 1         '1 - Black shadow
  866.  
  867. 'ShadowStyle (Frame)
  868. Global Const SS_SHADOW_INSET = 0         '0 - Shadow inset
  869. Global Const SS_SHADOW_RAISED = 1        '1 - Shadow raised
  870.  
  871.  
  872. '---------------------------------------
  873. 'Animated Button
  874. '---------------------------------------
  875. 'Cycle property
  876. Global Const ANI_ANIMATED = 0
  877. Global Const ANI_MULTISTATE = 1
  878. Global Const ANI_TWO_STATE = 2
  879.  
  880. 'Click Filter property
  881. Global Const ANI_ANYWHERE = 0
  882. Global Const ANI_IMAGE_AND_TEXT = 1
  883. Global Const ANI_IMAGE = 2
  884. Global Const ANI_TEXT = 3
  885.  
  886. 'PicDrawMode Property
  887. Global Const ANI_XPOS_YPOS = 0
  888. Global Const ANI_AUTOSIZE = 1
  889. Global Const ANI_STRETCH = 2
  890.  
  891. 'SpecialOp Property
  892. Global Const ANI_CLICK = 1
  893.  
  894. 'TextPosition Property
  895. Global Const ANI_CENTER = 0
  896. Global Const ANI_LEFT = 1
  897. Global Const ANI_RIGHT = 2
  898. Global Const ANI_BOTTON = 3
  899. Global Const ANI_TOP = 4
  900.  
  901.  
  902. '---------------------------------------
  903. 'GAUGE
  904. '---------------------------------------
  905. 'Style Property
  906. Global Const GAUGE_HORIZ = 0
  907. Global Const GAUGE_VERT = 1
  908. Global Const GAUGE_SEMI = 2
  909. Global Const GAUGE_FULL = 3
  910.  
  911.  
  912. '----------------------------------------
  913. 'Graph Control
  914. '----------------------------------------
  915. 'General
  916. Global Const G_NONE = 0
  917. Global Const G_DEFAULT = 0
  918.  
  919. Global Const G_OFF = 0
  920. Global Const G_ON = 1
  921.  
  922. Global Const G_MONO = 0
  923. Global Const G_COLOR = 1
  924.  
  925. 'Graph Types
  926. Global Const G_PIE2D = 1
  927. Global Const G_PIE3D = 2
  928. Global Const G_BAR2D = 3
  929. Global Const G_BAR3D = 4
  930. Global Const G_GANTT = 5
  931. Global Const G_LINE = 6
  932. Global Const G_LOGLIN = 7
  933. Global Const G_AREA = 8
  934. Global Const G_SCATTER = 9
  935. Global Const G_POLAR = 10
  936. Global Const G_HLC = 11
  937.  
  938. 'Colors
  939. Global Const G_BLACK = 0
  940. Global Const G_BLUE = 1
  941. Global Const G_GREEN = 2
  942. Global Const G_CYAN = 3
  943. Global Const G_RED = 4
  944. Global Const G_MAGENTA = 5
  945. Global Const G_BROWN = 6
  946. Global Const G_LIGHT_GRAY = 7
  947. Global Const G_DARK_GRAY = 8
  948. Global Const G_LIGHT_BLUE = 9
  949. Global Const G_LIGHT_GREEN = 10
  950. Global Const G_LIGHT_CYAN = 11
  951. Global Const G_LIGHT_RED = 12
  952. Global Const G_LIGHT_MAGENTA = 13
  953. Global Const G_YELLOW = 14
  954. Global Const G_WHITE = 15
  955. Global Const G_AUTOBW = 16
  956.  
  957. 'Patterns
  958. Global Const G_SOLID = 0
  959. Global Const G_HOLLOW = 1
  960. Global Const G_HATCH1 = 2
  961. Global Const G_HATCH2 = 3
  962. Global Const G_HATCH3 = 4
  963. Global Const G_HATCH4 = 5
  964. Global Const G_HATCH5 = 6
  965. Global Const G_HATCH6 = 7
  966. Global Const G_BITMAP1 = 16
  967. Global Const G_BITMAP2 = 17
  968. Global Const G_BITMAP3 = 18
  969. Global Const G_BITMAP4 = 19
  970. Global Const G_BITMAP5 = 20
  971. Global Const G_BITMAP6 = 21
  972. Global Const G_BITMAP7 = 22
  973. Global Const G_BITMAP8 = 23
  974. Global Const G_BITMAP9 = 24
  975. Global Const G_BITMAP10 = 25
  976. Global Const G_BITMAP11 = 26
  977. Global Const G_BITMAP12 = 27
  978. Global Const G_BITMAP13 = 28
  979. Global Const G_BITMAP14 = 29
  980. Global Const G_BITMAP15 = 30
  981. Global Const G_BITMAP16 = 31
  982.  
  983. 'Symbols
  984. Global Const G_CROSS_PLUS = 0
  985. Global Const G_CROSS_TIMES = 1
  986. Global Const G_TRIANGLE_UP = 2
  987. Global Const G_SOLID_TRIANGLE_UP = 3
  988. Global Const G_TRIANGLE_DOWN = 4
  989. Global Const G_SOLID_TRIANGLE_DOWN = 5
  990. Global Const G_SQUARE = 6
  991. Global Const G_SOLID_SQUARE = 7
  992. Global Const G_DIAMOND = 8
  993. Global Const G_SOLID_DIAMOND = 9
  994.  
  995. 'Line Styles
  996. 'Global Const G_SOLID = 0
  997. Global Const G_DASH = 1
  998. Global Const G_DOT = 2
  999. Global Const G_DASHDOT = 3
  1000. Global Const G_DASHDOTDOT = 4
  1001.  
  1002. 'Grids
  1003. Global Const G_HORIZONTAL = 1
  1004. Global Const G_VERTICAL = 2
  1005.  
  1006. 'Statistics
  1007. Global Const G_MEAN = 1
  1008. Global Const G_MIN_MAX = 2
  1009. Global Const G_STD_DEV = 4
  1010. Global Const G_BEST_FIT = 8
  1011.  
  1012. 'Data Arrays
  1013. Global Const G_GRAPH_DATA = 1
  1014. Global Const G_COLOR_DATA = 2
  1015. Global Const G_EXTRA_DATA = 3
  1016. Global Const G_LABEL_TEXT = 4
  1017. Global Const G_LEGEND_TEXT = 5
  1018. Global Const G_PATTERN_DATA = 6
  1019. Global Const G_SYMBOL_DATA = 7
  1020. Global Const G_XPOS_DATA = 8
  1021. Global Const G_ALL_DATA = 9
  1022.  
  1023. 'Draw Mode
  1024. Global Const G_NO_ACTION = 0
  1025. Global Const G_CLEAR = 1
  1026. Global Const G_DRAW = 2
  1027. Global Const G_BLIT = 3
  1028. Global Const G_COPY = 4
  1029. Global Const G_PRINT = 5
  1030. Global Const G_WRITE = 6
  1031.  
  1032. 'Print Options
  1033. Global Const G_BORDER = 2
  1034.  
  1035. 'Pie Chart Options             '
  1036. Global Const G_NO_LINES = 1
  1037. Global Const G_COLORED = 2
  1038. Global Const G_PERCENTS = 4
  1039.  
  1040. 'Bar Chart Options             '
  1041. 'Global Const G_HORIZONTAL = 1
  1042. Global Const G_STACKED = 2
  1043. Global Const G_PERCENTAGE = 4
  1044. Global Const G_Z_CLUSTERED = 6
  1045.  
  1046. 'Gantt Chart Options           '
  1047. Global Const G_SPACED_BARS = 1
  1048.  
  1049. 'Line/Polar Chart Options      '
  1050. Global Const G_SYMBOLS = 1
  1051. Global Const G_STICKS = 2
  1052. Global Const G_LINES = 4
  1053.  
  1054. 'Area Chart Options            '
  1055. Global Const G_ABSOLUTE = 1
  1056. Global Const G_PERCENT = 2
  1057.  
  1058. 'HLC Chart Options             '
  1059. Global Const G_NO_CLOSE = 1
  1060. Global Const G_NO_HIGH_LOW = 2
  1061.  
  1062.  
  1063. '---------------------------------------
  1064. 'Key Status Control
  1065. '---------------------------------------
  1066. 'Style
  1067. Global Const KEYSTAT_CAPSLOCK = 0
  1068. Global Const KEYSTAT_NUMLOCK = 1
  1069. Global Const KEYSTAT_INSERT = 2
  1070. Global Const KEYSTAT_SCROLLLOCK = 3
  1071.  
  1072.  
  1073. '---------------------------------------
  1074. 'MCI Control (Multimedia)
  1075. '---------------------------------------
  1076. 'NOTE:
  1077. 'Please use the updated Multimedia constants
  1078. 'in the WINMMSYS.TXT file from the \VB\WINAPI
  1079. 'subdirectory.
  1080.  
  1081. 'Mode Property
  1082. 'Global Const MCI_MODE_NOT_OPEN = 11
  1083. 'Global Const MCI_MODE_STOP = 12
  1084. 'Global Const MCI_MODE_PLAY = 13
  1085. 'Global Const MCI_MODE_RECORD = 14
  1086. 'Global Const MCI_MODE_SEEK = 15
  1087. 'Global Const MCI_MODE_PAUSE = 16
  1088. 'Global Const MCI_MODE_READY = 17
  1089.  
  1090. 'NotifyValue Property
  1091. 'Global Const MCI_NOTIFY_SUCCESSFUL = 1
  1092. 'Global Const MCI_NOTIFY_SUPERSEDED = 2
  1093. 'Global Const MCI_ABORTED = 4
  1094. 'Global Const MCI_FAILURE = 8
  1095.  
  1096. 'Orientation Property
  1097. 'Global Const MCI_ORIENT_HORZ = 0
  1098. 'Global Const MCI_ORIENT_VERT = 1
  1099.  
  1100. 'RecordMode Porperty
  1101. 'Global Const MCI_RECORD_INSERT = 0
  1102. 'Global Const MCI_RECORD_OVERWRITE = 1
  1103.  
  1104. 'TimeFormat Property
  1105. 'Global Const MCI_FORMAT_MILLISECONDS = 0
  1106. 'Global Const MCI_FORMAT_HMS = 1
  1107. 'Global Const MCI_FORMAT_MSF = 2
  1108. 'Global Const MCI_FORMAT_FRAMES = 3
  1109. 'Global Const MCI_FORMAT_SMPTE_24 = 4
  1110. 'Global Const MCI_FORMAT_SMPTE_25 = 5
  1111. 'Global Const MCI_FORMAT_SMPTE_30 = 6
  1112. 'Global Const MCI_FORMAT_SMPTE_30DROP = 7
  1113. 'Global Const MCI_FORMAT_BYTES = 8
  1114. 'Global Const MCI_FORMAT_SAMPLES = 9
  1115. 'Global Const MCI_FORMAT_TMSF = 10
  1116.  
  1117.  
  1118. '---------------------------------------
  1119. 'Spin Button
  1120. '---------------------------------------
  1121. 'SpinOrientation
  1122. Global Const SPIN_VERTICAL = 0
  1123. Global Const SPIN_HORIZONTAL = 1
  1124.  
  1125.  
  1126. '---------------------------------------
  1127. 'Masked Edit Control
  1128. '---------------------------------------
  1129. 'ClipMode
  1130. Global Const ME_INCLIT = 0
  1131. Global Const ME_EXCLIT = 1
  1132.  
  1133.  
  1134. '---------------------------------------
  1135. 'Comm Control
  1136. '---------------------------------------
  1137. 'Handshaking
  1138. Global Const MSCOMM_HANDSHAKE_NONE = 0
  1139. Global Const MSCOMM_HANDSHAKE_XONXOFF = 1
  1140. Global Const MSCOMM_HANDSHAKE_RTS = 2
  1141. Global Const MSCOMM_HANDSHAKE_RTSXONXOFF = 3
  1142.  
  1143. 'Event constants
  1144. Global Const MSCOMM_EV_SEND = 1
  1145. Global Const MSCOMM_EV_RECEIVE = 2
  1146. Global Const MSCOMM_EV_CTS = 3
  1147. Global Const MSCOMM_EV_DSR = 4
  1148. Global Const MSCOMM_EV_CD = 5
  1149. Global Const MSCOMM_EV_RING = 6
  1150. Global Const MSCOMM_EV_EOF = 7
  1151.  
  1152. 'Error code constants
  1153. Global Const MSCOMM_ER_BREAK = 1001
  1154. Global Const MSCOMM_ER_CTSTO = 1002
  1155. Global Const MSCOMM_ER_DSRTO = 1003
  1156. Global Const MSCOMM_ER_FRAME = 1004
  1157. Global Const MSCOMM_ER_OVERRUN = 1006
  1158. Global Const MSCOMM_ER_CDTO = 1007
  1159. Global Const MSCOMM_ER_RXOVER = 1008
  1160. Global Const MSCOMM_ER_RXPARITY = 1009
  1161. Global Const MSCOMM_ER_TXFULL = 1010
  1162.  
  1163.  
  1164. '---------------------------------------
  1165. ' MAPI SESSION CONTROL CONSTANTS
  1166. '---------------------------------------
  1167. 'Action
  1168. Global Const SESSION_SIGNON = 1
  1169. Global Const SESSION_SIGNOFF = 2
  1170.  
  1171.  
  1172. '---------------------------------------
  1173. ' MAPI MESSAGE CONTROL CONSTANTS
  1174. '---------------------------------------
  1175. 'Action
  1176. Global Const MESSAGE_FETCH = 1             ' Load all messages from message store
  1177. Global Const MESSAGE_SENDDLG = 2           ' Send mail bring up default mapi dialog
  1178. Global Const MESSAGE_SEND = 3              ' Send mail without default mapi dialog
  1179. Global Const MESSAGE_SAVEMSG = 4           ' Save message in the compose buffer
  1180. Global Const MESSAGE_COPY = 5              ' Copy current message to compose buffer
  1181. Global Const MESSAGE_COMPOSE = 6           ' Initialize compose buffer (previous
  1182.                        ' data is lost
  1183. Global Const MESSAGE_REPLY = 7             ' Fill Compose buffer as REPLY
  1184. Global Const MESSAGE_REPLYALL = 8          ' Fill Compose buffer as REPLY ALL
  1185. Global Const MESSAGE_FORWARD = 9           ' Fill Compose buffer as FORWARD
  1186. Global Const MESSAGE_DELETE = 10           ' Delete current message
  1187. Global Const MESSAGE_SHOWADBOOK = 11       ' Show Address book
  1188. Global Const MESSAGE_SHOWDETAILS = 12      ' Show details of the current recipient
  1189. Global Const MESSAGE_RESOLVENAME = 13      ' Resolve the display name of the recipient
  1190. Global Const RECIPIENT_DELETE = 14            ' Fill Compose buffer as FORWARD
  1191. Global Const ATTACHMENT_DELETE = 15          ' Delete current message
  1192.  
  1193.  
  1194. '---------------------------------------
  1195. '  ERROR CONSTANT DECLARATIONS (MAPI CONTROLS)
  1196. '---------------------------------------
  1197. Global Const SUCCESS_SUCCESS = 32000
  1198. Global Const MAPI_USER_ABORT = 32001
  1199. Global Const MAPI_E_FAILURE = 32002
  1200. Global Const MAPI_E_LOGIN_FAILURE = 32003
  1201. Global Const MAPI_E_DISK_FULL = 32004
  1202. Global Const MAPI_E_INSUFFICIENT_MEMORY = 32005
  1203. Global Const MAPI_E_ACCESS_DENIED = 32006
  1204. Global Const MAPI_E_TOO_MANY_SESSIONS = 32008
  1205. Global Const MAPI_E_TOO_MANY_FILES = 32009
  1206. Global Const MAPI_E_TOO_MANY_RECIPIENTS = 32010
  1207. Global Const MAPI_E_ATTACHMENT_NOT_FOUND = 32011
  1208. Global Const MAPI_E_ATTACHMENT_OPEN_FAILURE = 32012
  1209. Global Const MAPI_E_ATTACHMENT_WRITE_FAILURE = 32013
  1210. Global Const MAPI_E_UNKNOWN_RECIPIENT = 32014
  1211. Global Const MAPI_E_BAD_RECIPTYPE = 32015
  1212. Global Const MAPI_E_NO_MESSAGES = 32016
  1213. Global Const MAPI_E_INVALID_MESSAGE = 32017
  1214. Global Const MAPI_E_TEXT_TOO_LARGE = 32018
  1215. Global Const MAPI_E_INVALID_SESSION = 32019
  1216. Global Const MAPI_E_TYPE_NOT_SUPPORTED = 32020
  1217. Global Const MAPI_E_AMBIGUOUS_RECIPIENT = 32021
  1218. Global Const MAPI_E_MESSAGE_IN_USE = 32022
  1219. Global Const MAPI_E_NETWORK_FAILURE = 32023
  1220. Global Const MAPI_E_INVALID_EDITFIELDS = 32024
  1221. Global Const MAPI_E_INVALID_RECIPS = 32025
  1222. Global Const MAPI_E_NOT_SUPPORTED = 32026
  1223.  
  1224. Global Const CONTROL_E_SESSION_EXISTS = 32050
  1225. Global Const CONTROL_E_INVALID_BUFFER = 32051
  1226. Global Const CONTROL_E_INVALID_READ_BUFFER_ACTION = 32052
  1227. Global Const CONTROL_E_NO_SESSION = 32053
  1228. Global Const CONTROL_E_INVALID_RECIPIENT = 32054
  1229. Global Const CONTROL_E_INVALID_COMPOSE_BUFFER_ACTION = 32055
  1230. Global Const CONTROL_E_FAILURE = 32056
  1231. Global Const CONTROL_E_NO_RECIPIENTS = 32057
  1232. Global Const CONTROL_E_NO_ATTACHMENTS = 32058
  1233.  
  1234.  
  1235. '---------------------------------------
  1236. '  MISCELLANEOUS GLOBAL CONSTANT DECLARATIONS (MAPI CONTROLS)
  1237. '---------------------------------------
  1238. Global Const RECIPTYPE_ORIG = 0
  1239. Global Const RECIPTYPE_TO = 1
  1240. Global Const RECIPTYPE_CC = 2
  1241. Global Const RECIPTYPE_BCC = 3
  1242.  
  1243. Global Const ATTACHTYPE_DATA = 0
  1244. Global Const ATTACHTYPE_EOLE = 1
  1245. Global Const ATTACHTYPE_SOLE = 2
  1246.  
  1247.  
  1248. '-------------------------------------------------
  1249. '  Outline
  1250. '-------------------------------------------------
  1251. ' PictureType
  1252. Global Const MSOUTLINE_PICTURE_CLOSED = 0
  1253. Global Const MSOUTLINE_PICTURE_OPEN = 1
  1254. Global Const MSOUTLINE_PICTURE_LEAF = 2
  1255.  
  1256. 'Outline Control Error Constants
  1257. Global Const MSOUTLINE_BADPICFORMAT = 32000
  1258. Global Const MSOUTLINE_BADINDENTATION = 32001
  1259. Global Const MSOUTLINE_MEM = 32002
  1260. Global Const MSOUTLINE_PARENTNOTEXPANDED = 32003
  1261.  
  1262. Sub DisplayError (nError As Long)
  1263.     ' Display the error
  1264.     Select Case nError
  1265.     Case ARGUMENT_LIST_TOO_LONG
  1266.         strError = "Argument list too long"
  1267.     Case PERMISSION_DENIED
  1268.         strError = "Permission denied"
  1269.     Case BAD_FILE_NUMBER
  1270.         strError = "Bad file number"
  1271.     Case RESOURCE_DEADLOCK_WOULD_OCCUR
  1272.         strError = "Resource deadlock would occur"
  1273.     Case MATH_ARGUMENT
  1274.         strError = "Math argument"
  1275.     Case FILE_EXISTS
  1276.         strError = "File exists"
  1277.     Case INVALID_ARGUMENT
  1278.         strError = "Invalid argument"
  1279.     Case TOO_MANY_OPEN_FILES
  1280.         strError = "Too many open files"
  1281.     Case FILE_NOT_FOUND
  1282.         strError = "No such file"
  1283.     Case DIRECTORY_NOT_FOUND
  1284.         strError = "No such directory"
  1285.     Case EXEC_FORMAT_ERROR
  1286.         strError = "Exec format error"
  1287.     Case NOT_ENOUGH_MEMORY
  1288.         strError = "Not enough memory"
  1289.     Case NO_SPACE_LEFT_ON_DEVICE
  1290.         strError = "No space left on device"
  1291.     Case RESULT_TOO_LARGE
  1292.         strError = "Result too large"
  1293.     Case CROSS_DEVICE_LINK
  1294.         strError = "Cross-device link"
  1295.     Case DISK_FULL
  1296.         strError = "Disk Full"
  1297.     Case FILE_ERROR
  1298.         strError = "File Error"
  1299.     Case MOVE_TO_NOT_OPENED
  1300.         strError = "(Move) To File could not be opened"
  1301.     Case MOVE_TO_NOT_CLOSED
  1302.         strError = "(Move) To File could not be closed"
  1303.     Case MOVE_FROM_NOT_CLOSED
  1304.         strError = "(Move) From File could not be closed"
  1305.     Case MOVE_FROM_NOT_REMOVED
  1306.         strError = "(Move) From File could not be Deleted"
  1307.     Case MOVE_FROM_NOT_EXIST
  1308.         strError = "(Move) From File does not exist"
  1309.     Case MOVE_TO_DISK_FULL
  1310.         strError = "(Move) To Drive has Full Disk"
  1311.     Case MOVE_TO_DIR_CREATE_ERROR
  1312.         strError = "(Move) To Directory Creation Error"
  1313.     Case MOVE_TO_DO_NOT_CREATE_DIR
  1314.         strError = "(Move) Did not Create Directory, as requested"
  1315.     Case MOVE_DO_NOT_OVER_WRITE
  1316.         strError = "(Move) As Requested, did not over write existing file"
  1317.     Case MOVE_NEWER_VERSION
  1318.         strError = "(Move) Did not Over Write Newer Revision"
  1319.     Case Else
  1320.         strError = "Unknown Error"
  1321.     End Select
  1322.  
  1323.     Screen.MousePointer = DEFAULT
  1324.     MsgBox "Disk Information Error (" & strError & ").", MB_ICONSTOP, "Disk Error"
  1325. End Sub
  1326.  
  1327.